﻿Imports System

Namespace System.Workflow.Runtime.Tracking
    <Serializable> _
    Public Class TrackingWorkflowExceptionEventArgs
        Inherits EventArgs
        ' Methods
        Friend Sub New(ByVal exception As Exception, ByVal currentPath As String, ByVal originalPath As String, ByVal contextGuid As Guid, ByVal parentContextGuid As Guid)
            Me._e = exception
            Me._currentPath = currentPath
            Me._originalPath = originalPath
            Me._context = contextGuid
            Me._parentContext = parentContextGuid
        End Sub


        ' Properties
        Public ReadOnly Property ContextGuid As Guid
            Get
                Return Me._context
            End Get
        End Property

        Public ReadOnly Property CurrentActivityPath As String
            Get
                Return Me._currentPath
            End Get
        End Property

        Public ReadOnly Property Exception As Exception
            Get
                Return Me._e
            End Get
        End Property

        Public ReadOnly Property OriginalActivityPath As String
            Get
                Return Me._originalPath
            End Get
        End Property

        Public ReadOnly Property ParentContextGuid As Guid
            Get
                Return Me._parentContext
            End Get
        End Property


        ' Fields
        Private _context As Guid
        Private _currentPath As String
        Private _e As Exception
        Private _originalPath As String
        Private _parentContext As Guid
    End Class
End Namespace

